home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / child.frm < prev    next >
Text File  |  1995-12-05  |  2KB  |  65 lines
  1. VERSION 2.00
  2. Begin Form Child 
  3.    Caption         =   "MDIChild"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   3480
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Child"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   268
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   232
  15.    Top             =   1140
  16.    Width           =   3600
  17. End
  18. ' It is important to ensure that the ScaleMode of this
  19. ' Form be set to the same ScaleMode of CRYSTAL.VBX, Twips.
  20.  
  21. Sub Form_Activate ()
  22.  
  23.     'Main!StatusBar.Caption = " Active Window :- " & Me.Caption
  24.  
  25. End Sub
  26.  
  27. Sub Form_Paint ()
  28.     
  29.     hWndChild = GetWindow(hWnd, GW_CHILD)
  30.     If (hWndChild <> 0) Then
  31.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  32.     End If
  33.  
  34. End Sub
  35.  
  36. Sub Form_Resize ()
  37.     
  38.     hWndChild = GetWindow(hWnd, GW_CHILD)
  39.     If (hWndChild <> 0) Then
  40.        MoveWindow hWndChild, ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight, 1
  41.     End If
  42.  
  43. End Sub
  44.  
  45. Sub Form_Unload (Cancel As Integer)
  46.     'Hide print Controls when closing Child Window
  47.  
  48.      Main.Command1.Visible = False
  49.      Main.Command2.Visible = False
  50.      Main.Command3.Visible = False
  51.      Main.Command4.Visible = False
  52.      Main.Command5.Visible = False
  53.      
  54.  
  55.     ' Window may be unloaded from SystemMenu or F4
  56.     ' so Main MenuFileClose needs to be updated
  57.     If Forms.Count = 2 Then
  58.         Main!MenuFileClose.Enabled = False
  59.         Main!StatusBar.Caption = " Ready"
  60.     End If
  61.     Unload Me
  62.  
  63. End Sub
  64.  
  65.